program q1
	use fs_FindSolution_module
	implicit none
	real	:: x1, x2, root
	print *, 'enter a bracket1'; read *, x1;print *, 'enter a bracket1'; read *, x2
	root = fs_bijection(x1, x2, 0.00001)
	print *, 'root=', root
end program